Temporal overview
p_year %>%
inner_join(poems,by=c("p_id")) %>%
count(collection,year) %>%
mutate(measure="yearly count") %>%
union_all(
p_year %>% # 10 year rolling mean
distinct(year) %>%
left_join(p_year %>% distinct(year),sql_on="RHS.year BETWEEN LHS.year-5 AND LHS.year+5") %>%
inner_join(p_year,by=c("year.y"="year")) %>%
inner_join(poems,by=c("p_id")) %>%
group_by(collection=collection,year=year.x) %>%
summarize(n=n()/10,.groups="drop") %>%
mutate(measure="10 year rolling mean")
) %>%
filter(year>0,year<9999,collection!="literary") %>%
ggplot(aes(x=year,y=n,color=measure)) +
geom_point(data=~.x %>% filter(measure=="yearly count")) +
geom_line(data=~.x %>% filter(measure=="10 year rolling mean")) +
theme_hsci_discrete(base_family="Arial") +
theme(legend.justification=c(0,1), legend.position=c(0.02, 0.98), legend.background = element_blank(), legend.key=element_blank()) +
labs(color=NULL) +
scale_y_continuous(breaks=seq(0,20000,by=2000)) +
ylab("Poems") +
scale_x_continuous(breaks=seq(1000,2000,by=50)) +
xlab("Year") +
facet_wrap(~collection, ncol=1) +
ggtitle("Number of poems by year and collection")

p_year %>%
filter(year %in% c(0,9999)) %>%
left_join(poems) %>%
count(collection,year) %>%
ungroup() %>%
gt() %>%
tab_header(title="Abnormal years") %>%
fmt_integer(n)
| collection |
year |
n |
| skvr |
9999 |
469 |
| erab |
0 |
5,443 |
Overview of collectors
poems %>%
distinct(collection) %>%
pull() %>%
map(~p_col %>%
inner_join(poems %>% filter(collection==.x),by=c("p_id")) %>%
count(col_id) %>%
left_join(collectors,by=c("col_id")) %>%
select(col_id,name,n) %>%
collect() %>%
mutate(col_id=fct_reorder(as_factor(col_id),n)) %>%
mutate(col_id=fct_lump_n(col_id,n=100,w=n)) %>%
mutate(col_id=fct_relevel(col_id,"Other")) %>%
group_by(col_id,name) %>%
tally(wt=n) %>% {
ggplot(.,aes(x=col_id,y=n)) +
geom_col() +
scale_x_discrete(labels=.$name) +
geom_text(aes(label=n),hjust='left',nudge_y = 100) +
theme_hsci_discrete(base_family="Arial") +
coord_flip() +
labs(title=str_c("Collectors in ",.x))
}
)
Warning: 1 unknown level in `f`: Other
[[1]]
[[2]]
[[3]]
[[4]]




p_col %>%
anti_join(collectors) %>%
count(col_id) %>%
gt() %>%
tab_header(title="Collectors without a name") %>%
fmt_integer(n)
Geographical overview
d <- p_loc %>%
count(loc_id) %>%
inner_join(locations) %>%
select(name,n) %>%
collect()
poems_without_location <- poems %>%
anti_join(p_loc) %>%
count() %>%
pull()
unprojected_locations <- d %>%
anti_join(polygons) %>%
add_row(name=NA,n=poems_without_location)
polygons %>%
left_join(d) %>%
tm_shape() +
tm_polygons(col='n', id='name', style='fisher', palette='plasma') +
tm_layout(title=str_c("Geographical overview. Missing ",unprojected_locations %>% tally(wt=n) %>% pull() %>% p," poems."))

unprojected_locations %>%
arrange(desc(n)) %>%
gt() %>%
tab_header("Poem locations not mapped") %>%
fmt_integer(n)
| name |
n |
| Narvusi |
4,982 |
| NA |
4,326 |
| Uusikirkko Vpl |
1,934 |
| välismaa |
1,822 |
| Vuole |
1,679 |
| Pyhäjärvi Vpl |
1,000 |
| Tartu |
973 |
| Viena |
871 |
| Peräpohjola |
842 |
| Pohjois-Pohjanmaa |
809 |
| Itä- ja Pohjois-Inkeri |
799 |
| Etelä-Karjala |
770 |
| Tallinn |
685 |
| Viljandi l. |
602 |
| Pärnu l. |
598 |
| Hämeenlinna |
565 |
| Keski-Inkeri |
532 |
| Viljandimaa |
480 |
| Tulomajärvi |
468 |
| Uusikaupunki |
457 |
| Võrumaa |
452 |
| Kiimaisjärvi |
448 |
| Viron Inkeri |
433 |
| Länsi-Inkeri |
426 |
| Narva l. |
422 |
| Sortavala mlk |
419 |
| Etelä-Savo |
412 |
| Tveri |
404 |
| Länsipohja |
402 |
| Viipuri mlk |
400 |
| Keminmaa |
375 |
| Pieksämäki |
346 |
| Läänemaa |
329 |
| Pyhäjärvi Ol |
324 |
| Rakvere l. |
304 |
| Savonlinna |
254 |
| Pyhäjärvi Ul |
245 |
| Pohjois-Karjala |
240 |
| Säräisniemi |
233 |
| Salo |
209 |
| Pohjois-Savo |
208 |
| Saaremaa |
205 |
| Lahti |
189 |
| Etelä-Pohjanmaa |
181 |
| Uusikirkko Tl |
177 |
| Tornio |
172 |
| Mikkeli mlk |
161 |
| Valga |
150 |
| Koski Hl |
142 |
| Porvoo mlk |
134 |
| Kainuu |
119 |
| Heinola mlk |
117 |
| Kuusankoski |
115 |
| Mänttä |
113 |
| Laatokan Karjala (Raja-Karjala) |
107 |
| Salo |
107 |
| Riihimäki |
104 |
| Helsingin pit |
103 |
| Pärnumaa |
102 |
| Tuutari=Tuuteri |
100 |
| Kotka |
96 |
| Satakunta |
95 |
| Alajärvi |
91 |
| Ruija |
91 |
| Paide l. |
88 |
| Lapväärtti-Lappfjärd |
87 |
| Haapsalu |
86 |
| Kuopio mlk |
77 |
| Toijala |
70 |
| Jyväskylä mlk |
69 |
| Häme |
67 |
| Lappeenranta |
63 |
| Varkaus |
62 |
| Kajaani mlk |
60 |
| Võru l. |
60 |
| Valgamaa |
58 |
| Karjala Tl |
51 |
| Pohjois-Pirkkala |
47 |
| Kovero |
47 |
| Uusimaa |
46 |
| Sõrve |
40 |
| Järvamaa |
39 |
| Virumaa |
36 |
| Novgorodin alue |
34 |
| Tartumaa |
29 |
| Varsinais-Suomi |
26 |
| Hiiumaa |
23 |
| Vaasa |
22 |
| Revonlahti-Revolax |
22 |
| Storfjord |
20 |
| Parainen |
18 |
| Lappi Tl |
17 |
| Vaala |
17 |
| Harjumaa |
17 |
| Karkkila |
16 |
| Kouvola |
16 |
| Lieksa |
16 |
| Rovaniemi mlk |
16 |
| Prunkkala |
15 |
| Kimito |
15 |
| Kerava |
15 |
| Valkeakoski |
15 |
| Kuusisto |
13 |
| Uusikaupunki mlk |
13 |
| Iisalmi mlk |
13 |
| Kokkola-Gamlakarleby |
13 |
| Muoslompolo |
13 |
| Hongonjoki |
12 |
| Mustasaari-Korsholm |
12 |
| Kemiö |
11 |
| Pieksämäki mlk |
11 |
| Pielisensuu |
11 |
| Alakiiminki |
11 |
| Särkisalo |
10 |
| Hamina |
10 |
| Kristiinankaupunki-Kristinestad |
10 |
| Siipyy-Sideby |
10 |
| Nauvo |
9 |
| Taipale (Enontaipale) |
9 |
| Junosuando |
9 |
| Karesuando |
9 |
| Kenjärvi |
9 |
| Jämsänkoski |
8 |
| Kuhmoniemi |
8 |
| Kuolajärvi |
8 |
| Äänislinna |
8 |
| Sulva-Solf-Solv |
7 |
| Muurmanni |
7 |
| Siuntio |
6 |
| Suolahti |
6 |
| Taipale |
6 |
| Uzmana |
6 |
| Suma |
6 |
| Vammala |
5 |
| Rauma mlk |
5 |
| Kistrand |
5 |
| Moseija |
5 |
| Kirkkonummi |
4 |
| Imatra |
4 |
| Uusikaarlepyy-Nykarleby |
4 |
| Yliveteli |
4 |
| Lauritsala |
3 |
| Ruukki |
3 |
| Koutokeino |
3 |
| Riipuskala |
3 |
| Kuressaare l. |
3 |
| Järvenpää |
2 |
| Pietarsaari-Jakobstad |
2 |
| Jepua-Jeppo |
2 |
| Kouta |
2 |
| Tiudia |
2 |
| Jaama |
2 |
| Ikaalinen mlk |
1 |
| Anjalankoski |
1 |
| Myllykoski |
1 |
| Loviisa |
1 |
| Sipoo |
1 |
| Keski-Suomi |
1 |
| Nurmes mlk |
1 |
| Petolahti-Petalax |
1 |
| Raippaluoto-Replot |
1 |
| Oulu mlk |
1 |
| Nordkapp |
1 |
| Maasöy |
1 |
| Muodoslompolo |
1 |
| Pietari=Leningrad |
1 |
| Siestarjoki |
1 |
| Ahvenanmaa |
1 |
d <- p_loc %>%
left_join(poems) %>%
count(collection,loc_id) %>%
ungroup() %>%
inner_join(locations) %>%
select(collection,name,n) %>%
collect()
poems_without_location <- poems %>%
anti_join(p_loc) %>%
count(collection) %>%
collect() %>%
mutate(name=NA_character_)
unprojected_locations <- d %>%
anti_join(polygons) %>%
union_all(poems_without_location)
poems %>%
distinct(collection) %>%
pull() %>%
map(~
list(
tm_shape(
polygons %>%
left_join(
p_loc %>%
inner_join(poems %>% filter(collection==.x),by=c("p_id")) %>%
count(loc_id) %>%
inner_join(locations) %>%
select(name,n) %>%
collect()
)
) +
tm_polygons(col='n', id='name', style='fisher', palette='plasma') +
tm_layout(title=str_c("Geography of ",.x,". Missing ",unprojected_locations %>% filter(collection==.x) %>% tally(wt=n) %>% pull() %>% p," poems.")),
unprojected_locations %>%
filter(collection==.x) %>%
arrange(desc(n)) %>%
select(-collection) %>%
gt() %>%
tab_header(str_c("Poem locations not mapped in ",.x)) %>%
fmt_integer(n)
)
) %>%
flatten()
[[1]]
[[2]]
| name |
n |
| Narvusi |
3,202 |
| Vuole |
1,524 |
| Uusikirkko Vpl |
1,131 |
| Pyhäjärvi Vpl |
785 |
| Etelä-Karjala |
658 |
| Pohjois-Pohjanmaa |
557 |
| Länsipohja |
396 |
| Kiimaisjärvi |
363 |
| Etelä-Savo |
350 |
| Tveri |
294 |
| Viipuri mlk |
277 |
| Salo |
198 |
| Pieksämäki |
183 |
| Pyhäjärvi Ol |
160 |
| Koski Hl |
134 |
| Pohjois-Karjala |
129 |
| Uusikirkko Tl |
116 |
| Tulomajärvi |
115 |
| Tornio |
113 |
| Porvoo mlk |
112 |
| Pyhäjärvi Ul |
102 |
| Pohjois-Savo |
98 |
| Viena |
98 |
| Satakunta |
83 |
| Säräisniemi |
74 |
| Uusikaupunki |
71 |
| Heinola mlk |
62 |
| Häme |
61 |
| Ruija |
60 |
| Jyväskylä mlk |
52 |
| Keski-Inkeri |
49 |
| Hämeenlinna |
48 |
| Kovero |
47 |
| Tuutari=Tuuteri |
45 |
| Laatokan Karjala (Raja-Karjala) |
44 |
| Itä- ja Pohjois-Inkeri |
42 |
| Kainuu |
38 |
| Kuopio mlk |
35 |
| Peräpohjola |
33 |
| Varkaus |
30 |
| Kajaani mlk |
30 |
| Etelä-Pohjanmaa |
27 |
| Keminmaa |
26 |
| Varsinais-Suomi |
24 |
| Mänttä |
22 |
| Novgorodin alue |
22 |
| Kotka |
20 |
| Mikkeli mlk |
17 |
| Karjala Tl |
16 |
| Alajärvi |
16 |
| Kimito |
15 |
| Prunkkala |
14 |
| Savonlinna |
14 |
| Sortavala mlk |
13 |
| Revonlahti-Revolax |
12 |
| Alakiiminki |
11 |
| Taipale (Enontaipale) |
9 |
| Helsingin pit |
7 |
| Sulva-Solf-Solv |
7 |
| Siuntio |
6 |
| Mustasaari-Korsholm |
6 |
| Siipyy-Sideby |
6 |
| Uzmana |
6 |
| Suma |
6 |
| Lapväärtti-Lappfjärd |
5 |
| Vaasa |
5 |
| Lappeenranta |
4 |
| Kenjärvi |
4 |
| Vammala |
3 |
| Kirkkonummi |
3 |
| Kokkola-Gamlakarleby |
3 |
| Kuolajärvi |
3 |
| Uusimaa |
2 |
| Iisalmi mlk |
2 |
| Pietarsaari-Jakobstad |
2 |
| Jepua-Jeppo |
2 |
| Kouta |
2 |
| Länsi-Inkeri |
2 |
| Uusikaupunki mlk |
1 |
| Anjalankoski |
1 |
| Keski-Suomi |
1 |
| Lieksa |
1 |
| Raippaluoto-Replot |
1 |
| Kuhmoniemi |
1 |
[[3]]
[[4]]
| name |
n |
| NA |
2,008 |
| välismaa |
1,822 |
| Tartu |
973 |
| Tallinn |
685 |
| Viljandi l. |
602 |
| Pärnu l. |
598 |
| Viljandimaa |
480 |
| Võrumaa |
452 |
| Narva l. |
422 |
| Läänemaa |
329 |
| Rakvere l. |
304 |
| Saaremaa |
205 |
| Valga |
150 |
| Pärnumaa |
102 |
| Paide l. |
88 |
| Haapsalu |
86 |
| Võru l. |
60 |
| Valgamaa |
58 |
| Sõrve |
40 |
| Järvamaa |
39 |
| Virumaa |
36 |
| Tartumaa |
29 |
| Hiiumaa |
23 |
| Harjumaa |
17 |
| Kuressaare l. |
3 |
[[5]]
[[6]]
| name |
n |
| Narvusi |
1,780 |
| NA |
1,591 |
| Peräpohjola |
809 |
| Uusikirkko Vpl |
803 |
| Viena |
773 |
| Itä- ja Pohjois-Inkeri |
757 |
| Hämeenlinna |
517 |
| Keski-Inkeri |
483 |
| Viron Inkeri |
433 |
| Länsi-Inkeri |
424 |
| Sortavala mlk |
406 |
| Uusikaupunki |
386 |
| Tulomajärvi |
353 |
| Keminmaa |
349 |
| Pohjois-Pohjanmaa |
252 |
| Savonlinna |
240 |
| Pyhäjärvi Vpl |
215 |
| Lahti |
189 |
| Pyhäjärvi Ol |
164 |
| Pieksämäki |
163 |
| Säräisniemi |
159 |
| Vuole |
155 |
| Etelä-Pohjanmaa |
154 |
| Mikkeli mlk |
144 |
| Pyhäjärvi Ul |
143 |
| Viipuri mlk |
123 |
| Kuusankoski |
115 |
| Etelä-Karjala |
112 |
| Pohjois-Karjala |
111 |
| Pohjois-Savo |
110 |
| Tveri |
110 |
| Salo |
107 |
| Riihimäki |
104 |
| Helsingin pit |
96 |
| Mänttä |
91 |
| Kiimaisjärvi |
85 |
| Lapväärtti-Lappfjärd |
82 |
| Kainuu |
81 |
| Kotka |
76 |
| Alajärvi |
75 |
| Toijala |
70 |
| Laatokan Karjala (Raja-Karjala) |
63 |
| Etelä-Savo |
62 |
| Uusikirkko Tl |
61 |
| Lappeenranta |
59 |
| Tornio |
59 |
| Heinola mlk |
55 |
| Tuutari=Tuuteri |
55 |
| Pohjois-Pirkkala |
47 |
| Uusimaa |
44 |
| Kuopio mlk |
42 |
| Karjala Tl |
35 |
| Varkaus |
32 |
| Ruija |
31 |
| Kajaani mlk |
30 |
| Porvoo mlk |
22 |
| Storfjord |
20 |
| Parainen |
18 |
| Lappi Tl |
17 |
| Jyväskylä mlk |
17 |
| Vaasa |
17 |
| Vaala |
17 |
| Karkkila |
16 |
| Kouvola |
16 |
| Rovaniemi mlk |
16 |
| Kerava |
15 |
| Valkeakoski |
15 |
| Lieksa |
15 |
| Kuusisto |
13 |
| Muoslompolo |
13 |
| Uusikaupunki mlk |
12 |
| Hongonjoki |
12 |
| Satakunta |
12 |
| Novgorodin alue |
12 |
| Kemiö |
11 |
| Salo |
11 |
| Pieksämäki mlk |
11 |
| Iisalmi mlk |
11 |
| Pielisensuu |
11 |
| Särkisalo |
10 |
| Hamina |
10 |
| Kokkola-Gamlakarleby |
10 |
| Kristiinankaupunki-Kristinestad |
10 |
| Revonlahti-Revolax |
10 |
| Nauvo |
9 |
| Junosuando |
9 |
| Karesuando |
9 |
| Jämsänkoski |
8 |
| Koski Hl |
8 |
| Äänislinna |
8 |
| Kuhmoniemi |
7 |
| Muurmanni |
7 |
| Häme |
6 |
| Suolahti |
6 |
| Taipale |
6 |
| Mustasaari-Korsholm |
6 |
| Länsipohja |
6 |
| Rauma mlk |
5 |
| Kuolajärvi |
5 |
| Kistrand |
5 |
| Moseija |
5 |
| Kenjärvi |
5 |
| Imatra |
4 |
| Uusikaarlepyy-Nykarleby |
4 |
| Siipyy-Sideby |
4 |
| Yliveteli |
4 |
| Lauritsala |
3 |
| Ruukki |
3 |
| Koutokeino |
3 |
| Riipuskala |
3 |
| Varsinais-Suomi |
2 |
| Vammala |
2 |
| Järvenpää |
2 |
| Tiudia |
2 |
| Jaama |
2 |
| Prunkkala |
1 |
| Ikaalinen mlk |
1 |
| Myllykoski |
1 |
| Kirkkonummi |
1 |
| Loviisa |
1 |
| Sipoo |
1 |
| Nurmes mlk |
1 |
| Petolahti-Petalax |
1 |
| Oulu mlk |
1 |
| Nordkapp |
1 |
| Maasöy |
1 |
| Muodoslompolo |
1 |
| Pietari=Leningrad |
1 |
| Siestarjoki |
1 |
| Ahvenanmaa |
1 |
[[7]]
[[8]]
NA




poems %>%
distinct(collection) %>%
pull() %>%
map(~
unprojected_locations %>%
filter(collection==.x) %>%
arrange(desc(n)) %>%
select(-collection) %>%
gt() %>%
tab_header(str_c("Poem locations not mapped in ",.x)) %>%
fmt_integer(n)
)
[[1]]
| name |
n |
| Narvusi |
3,202 |
| Vuole |
1,524 |
| Uusikirkko Vpl |
1,131 |
| Pyhäjärvi Vpl |
785 |
| Etelä-Karjala |
658 |
| Pohjois-Pohjanmaa |
557 |
| Länsipohja |
396 |
| Kiimaisjärvi |
363 |
| Etelä-Savo |
350 |
| Tveri |
294 |
| Viipuri mlk |
277 |
| Salo |
198 |
| Pieksämäki |
183 |
| Pyhäjärvi Ol |
160 |
| Koski Hl |
134 |
| Pohjois-Karjala |
129 |
| Uusikirkko Tl |
116 |
| Tulomajärvi |
115 |
| Tornio |
113 |
| Porvoo mlk |
112 |
| Pyhäjärvi Ul |
102 |
| Pohjois-Savo |
98 |
| Viena |
98 |
| Satakunta |
83 |
| Säräisniemi |
74 |
| Uusikaupunki |
71 |
| Heinola mlk |
62 |
| Häme |
61 |
| Ruija |
60 |
| Jyväskylä mlk |
52 |
| Keski-Inkeri |
49 |
| Hämeenlinna |
48 |
| Kovero |
47 |
| Tuutari=Tuuteri |
45 |
| Laatokan Karjala (Raja-Karjala) |
44 |
| Itä- ja Pohjois-Inkeri |
42 |
| Kainuu |
38 |
| Kuopio mlk |
35 |
| Peräpohjola |
33 |
| Varkaus |
30 |
| Kajaani mlk |
30 |
| Etelä-Pohjanmaa |
27 |
| Keminmaa |
26 |
| Varsinais-Suomi |
24 |
| Mänttä |
22 |
| Novgorodin alue |
22 |
| Kotka |
20 |
| Mikkeli mlk |
17 |
| Karjala Tl |
16 |
| Alajärvi |
16 |
| Kimito |
15 |
| Prunkkala |
14 |
| Savonlinna |
14 |
| Sortavala mlk |
13 |
| Revonlahti-Revolax |
12 |
| Alakiiminki |
11 |
| Taipale (Enontaipale) |
9 |
| Helsingin pit |
7 |
| Sulva-Solf-Solv |
7 |
| Siuntio |
6 |
| Mustasaari-Korsholm |
6 |
| Siipyy-Sideby |
6 |
| Uzmana |
6 |
| Suma |
6 |
| Lapväärtti-Lappfjärd |
5 |
| Vaasa |
5 |
| Lappeenranta |
4 |
| Kenjärvi |
4 |
| Vammala |
3 |
| Kirkkonummi |
3 |
| Kokkola-Gamlakarleby |
3 |
| Kuolajärvi |
3 |
| Uusimaa |
2 |
| Iisalmi mlk |
2 |
| Pietarsaari-Jakobstad |
2 |
| Jepua-Jeppo |
2 |
| Kouta |
2 |
| Länsi-Inkeri |
2 |
| Uusikaupunki mlk |
1 |
| Anjalankoski |
1 |
| Keski-Suomi |
1 |
| Lieksa |
1 |
| Raippaluoto-Replot |
1 |
| Kuhmoniemi |
1 |
[[2]]
| name |
n |
| NA |
2,008 |
| välismaa |
1,822 |
| Tartu |
973 |
| Tallinn |
685 |
| Viljandi l. |
602 |
| Pärnu l. |
598 |
| Viljandimaa |
480 |
| Võrumaa |
452 |
| Narva l. |
422 |
| Läänemaa |
329 |
| Rakvere l. |
304 |
| Saaremaa |
205 |
| Valga |
150 |
| Pärnumaa |
102 |
| Paide l. |
88 |
| Haapsalu |
86 |
| Võru l. |
60 |
| Valgamaa |
58 |
| Sõrve |
40 |
| Järvamaa |
39 |
| Virumaa |
36 |
| Tartumaa |
29 |
| Hiiumaa |
23 |
| Harjumaa |
17 |
| Kuressaare l. |
3 |
[[3]]
| name |
n |
| Narvusi |
1,780 |
| NA |
1,591 |
| Peräpohjola |
809 |
| Uusikirkko Vpl |
803 |
| Viena |
773 |
| Itä- ja Pohjois-Inkeri |
757 |
| Hämeenlinna |
517 |
| Keski-Inkeri |
483 |
| Viron Inkeri |
433 |
| Länsi-Inkeri |
424 |
| Sortavala mlk |
406 |
| Uusikaupunki |
386 |
| Tulomajärvi |
353 |
| Keminmaa |
349 |
| Pohjois-Pohjanmaa |
252 |
| Savonlinna |
240 |
| Pyhäjärvi Vpl |
215 |
| Lahti |
189 |
| Pyhäjärvi Ol |
164 |
| Pieksämäki |
163 |
| Säräisniemi |
159 |
| Vuole |
155 |
| Etelä-Pohjanmaa |
154 |
| Mikkeli mlk |
144 |
| Pyhäjärvi Ul |
143 |
| Viipuri mlk |
123 |
| Kuusankoski |
115 |
| Etelä-Karjala |
112 |
| Pohjois-Karjala |
111 |
| Pohjois-Savo |
110 |
| Tveri |
110 |
| Salo |
107 |
| Riihimäki |
104 |
| Helsingin pit |
96 |
| Mänttä |
91 |
| Kiimaisjärvi |
85 |
| Lapväärtti-Lappfjärd |
82 |
| Kainuu |
81 |
| Kotka |
76 |
| Alajärvi |
75 |
| Toijala |
70 |
| Laatokan Karjala (Raja-Karjala) |
63 |
| Etelä-Savo |
62 |
| Uusikirkko Tl |
61 |
| Lappeenranta |
59 |
| Tornio |
59 |
| Heinola mlk |
55 |
| Tuutari=Tuuteri |
55 |
| Pohjois-Pirkkala |
47 |
| Uusimaa |
44 |
| Kuopio mlk |
42 |
| Karjala Tl |
35 |
| Varkaus |
32 |
| Ruija |
31 |
| Kajaani mlk |
30 |
| Porvoo mlk |
22 |
| Storfjord |
20 |
| Parainen |
18 |
| Lappi Tl |
17 |
| Jyväskylä mlk |
17 |
| Vaasa |
17 |
| Vaala |
17 |
| Karkkila |
16 |
| Kouvola |
16 |
| Rovaniemi mlk |
16 |
| Kerava |
15 |
| Valkeakoski |
15 |
| Lieksa |
15 |
| Kuusisto |
13 |
| Muoslompolo |
13 |
| Uusikaupunki mlk |
12 |
| Hongonjoki |
12 |
| Satakunta |
12 |
| Novgorodin alue |
12 |
| Kemiö |
11 |
| Salo |
11 |
| Pieksämäki mlk |
11 |
| Iisalmi mlk |
11 |
| Pielisensuu |
11 |
| Särkisalo |
10 |
| Hamina |
10 |
| Kokkola-Gamlakarleby |
10 |
| Kristiinankaupunki-Kristinestad |
10 |
| Revonlahti-Revolax |
10 |
| Nauvo |
9 |
| Junosuando |
9 |
| Karesuando |
9 |
| Jämsänkoski |
8 |
| Koski Hl |
8 |
| Äänislinna |
8 |
| Kuhmoniemi |
7 |
| Muurmanni |
7 |
| Häme |
6 |
| Suolahti |
6 |
| Taipale |
6 |
| Mustasaari-Korsholm |
6 |
| Länsipohja |
6 |
| Rauma mlk |
5 |
| Kuolajärvi |
5 |
| Kistrand |
5 |
| Moseija |
5 |
| Kenjärvi |
5 |
| Imatra |
4 |
| Uusikaarlepyy-Nykarleby |
4 |
| Siipyy-Sideby |
4 |
| Yliveteli |
4 |
| Lauritsala |
3 |
| Ruukki |
3 |
| Koutokeino |
3 |
| Riipuskala |
3 |
| Varsinais-Suomi |
2 |
| Vammala |
2 |
| Järvenpää |
2 |
| Tiudia |
2 |
| Jaama |
2 |
| Prunkkala |
1 |
| Ikaalinen mlk |
1 |
| Myllykoski |
1 |
| Kirkkonummi |
1 |
| Loviisa |
1 |
| Sipoo |
1 |
| Nurmes mlk |
1 |
| Petolahti-Petalax |
1 |
| Oulu mlk |
1 |
| Nordkapp |
1 |
| Maasöy |
1 |
| Muodoslompolo |
1 |
| Pietari=Leningrad |
1 |
| Siestarjoki |
1 |
| Ahvenanmaa |
1 |
[[4]]
NA
d <- poems %>%
left_join(p_year %>% mutate(year=if_else(year %in% c(0L,9999L),NA,year))) %>%
collect() %>%
mutate(year_ntile=ntile(year,11)) %>%
group_by(year_ntile) %>%
mutate(years=str_c(min(year),"-",max(year))) %>%
ungroup() %>%
left_join(p_loc %>% collect()) %>%
count(years,loc_id) %>%
ungroup() %>%
left_join(locations %>% select(loc_id,name) %>% collect())
polygons %>%
left_join(d %>% complete(name,years)) %>%
tm_shape() +
tm_polygons(col='n', id='name', style='fisher', palette='plasma') +
tm_layout(main.title="Geographical overviews by time",legend.outside.size=0.1) +
tm_facets(by="years",ncol=4)

LS0tCnRpdGxlOiAiR2VuZXJhbCBzdGF0aXN0aWNhbCBvdmVydmlld3Mgb2YgRklMVEVSIGRhdGEiCmRhdGU6ICJgciBTeXMuRGF0ZSgpYCIKb3V0cHV0OiAKICBodG1sX25vdGVib29rOgogICAgY29kZV9mb2xkaW5nOiBoaWRlCiAgICB0b2M6IHllcwogIG1kX2RvY3VtZW50OgogICAgdmFyaWFudDogZ2ZtIAogICAgdG9jOiB5ZXMKLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KG1lc3NhZ2U9RkFMU0UsZHBpPTcyLGZpZy5yZXRpbmE9MixmaWcud2lkdGg9OCkKc291cmNlKGhlcmU6OmhlcmUoImNvZGUvY29tbW9uX2Jhc2lzLlIiKSwgbG9jYWwgPSBrbml0cjo6a25pdF9nbG9iYWwoKSkKYGBgCgojIFRlbXBvcmFsIG92ZXJ2aWV3CgpgYGB7ciB0ZW1wb3JhbF9vdmVydmlldywgZmlnLndpZHRoPTgsIGZpZy5oZWlnaHQ9OH0KcF95ZWFyICU+JSAKICBpbm5lcl9qb2luKHBvZW1zLGJ5PWMoInBfaWQiKSkgJT4lCiAgY291bnQoY29sbGVjdGlvbix5ZWFyKSAlPiUKICBtdXRhdGUobWVhc3VyZT0ieWVhcmx5IGNvdW50IikgJT4lCiAgdW5pb25fYWxsKAogICAgcF95ZWFyICU+JSAjIDEwIHllYXIgcm9sbGluZyBtZWFuCiAgICBkaXN0aW5jdCh5ZWFyKSAlPiUgCiAgICBsZWZ0X2pvaW4ocF95ZWFyICU+JSBkaXN0aW5jdCh5ZWFyKSxzcWxfb249IlJIUy55ZWFyIEJFVFdFRU4gTEhTLnllYXItNSBBTkQgTEhTLnllYXIrNSIpICU+JQogICAgaW5uZXJfam9pbihwX3llYXIsYnk9YygieWVhci55Ij0ieWVhciIpKSAlPiUKICAgIGlubmVyX2pvaW4ocG9lbXMsYnk9YygicF9pZCIpKSAlPiUKICAgIGdyb3VwX2J5KGNvbGxlY3Rpb249Y29sbGVjdGlvbix5ZWFyPXllYXIueCkgJT4lCiAgICBzdW1tYXJpemUobj1uKCkvMTAsLmdyb3Vwcz0iZHJvcCIpICU+JQogICAgbXV0YXRlKG1lYXN1cmU9IjEwIHllYXIgcm9sbGluZyBtZWFuIikKICApICU+JQogIGZpbHRlcih5ZWFyPjAseWVhcjw5OTk5LGNvbGxlY3Rpb24hPSJsaXRlcmFyeSIpICU+JQogIGdncGxvdChhZXMoeD15ZWFyLHk9bixjb2xvcj1tZWFzdXJlKSkgKwogIGdlb21fcG9pbnQoZGF0YT1+LnggJT4lIGZpbHRlcihtZWFzdXJlPT0ieWVhcmx5IGNvdW50IikpICsKICBnZW9tX2xpbmUoZGF0YT1+LnggJT4lIGZpbHRlcihtZWFzdXJlPT0iMTAgeWVhciByb2xsaW5nIG1lYW4iKSkgKwogIHRoZW1lX2hzY2lfZGlzY3JldGUoYmFzZV9mYW1pbHk9IkFyaWFsIikgKyAKICB0aGVtZShsZWdlbmQuanVzdGlmaWNhdGlvbj1jKDAsMSksIGxlZ2VuZC5wb3NpdGlvbj1jKDAuMDIsIDAuOTgpLCBsZWdlbmQuYmFja2dyb3VuZCA9IGVsZW1lbnRfYmxhbmsoKSwgbGVnZW5kLmtleT1lbGVtZW50X2JsYW5rKCkpICsgCiAgbGFicyhjb2xvcj1OVUxMKSArCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcz1zZXEoMCwyMDAwMCxieT0yMDAwKSkgKwogIHlsYWIoIlBvZW1zIikgKwogIHNjYWxlX3hfY29udGludW91cyhicmVha3M9c2VxKDEwMDAsMjAwMCxieT01MCkpICsKICB4bGFiKCJZZWFyIikgKwogIGZhY2V0X3dyYXAofmNvbGxlY3Rpb24sIG5jb2w9MSkgKwogIGdndGl0bGUoIk51bWJlciBvZiBwb2VtcyBieSB5ZWFyIGFuZCBjb2xsZWN0aW9uIikKYGBgCgpgYGB7cn0KcF95ZWFyICU+JSAKICBmaWx0ZXIoeWVhciAlaW4lIGMoMCw5OTk5KSkgJT4lIAogIGxlZnRfam9pbihwb2VtcykgJT4lIAogIGNvdW50KGNvbGxlY3Rpb24seWVhcikgJT4lCiAgdW5ncm91cCgpICU+JQogIGd0KCkgJT4lCiAgdGFiX2hlYWRlcih0aXRsZT0iQWJub3JtYWwgeWVhcnMiKSAlPiUKICBmbXRfaW50ZWdlcihuKQpgYGAKCgoKIyBPdmVydmlldyBvZiBjb2xsZWN0b3JzCgpgYGB7ciBjb2xsZWN0b3JzX292ZXJ2aWV3LCBmaWcud2lkdGg9OCwgZmlnLmhlaWdodD0xMX0KcG9lbXMgJT4lIAogIGRpc3RpbmN0KGNvbGxlY3Rpb24pICU+JQogIHB1bGwoKSAlPiUKICBtYXAofnBfY29sICU+JSAKICAgIGlubmVyX2pvaW4ocG9lbXMgJT4lIGZpbHRlcihjb2xsZWN0aW9uPT0ueCksYnk9YygicF9pZCIpKSAlPiUKICAgIGNvdW50KGNvbF9pZCkgJT4lCiAgICBsZWZ0X2pvaW4oY29sbGVjdG9ycyxieT1jKCJjb2xfaWQiKSkgJT4lCiAgICBzZWxlY3QoY29sX2lkLG5hbWUsbikgJT4lCiAgICBjb2xsZWN0KCkgJT4lCiAgICBtdXRhdGUoY29sX2lkPWZjdF9yZW9yZGVyKGFzX2ZhY3Rvcihjb2xfaWQpLG4pKSAlPiUKICAgIG11dGF0ZShjb2xfaWQ9ZmN0X2x1bXBfbihjb2xfaWQsbj0xMDAsdz1uKSkgJT4lCiAgICBtdXRhdGUoY29sX2lkPWZjdF9yZWxldmVsKGNvbF9pZCwiT3RoZXIiKSkgJT4lCiAgICBncm91cF9ieShjb2xfaWQsbmFtZSkgJT4lCiAgICB0YWxseSh3dD1uKSAlPiUgewogICAgICBnZ3Bsb3QoLixhZXMoeD1jb2xfaWQseT1uKSkgKwogICAgICBnZW9tX2NvbCgpICsKICAgICAgc2NhbGVfeF9kaXNjcmV0ZShsYWJlbHM9LiRuYW1lKSArCiAgICAgIGdlb21fdGV4dChhZXMobGFiZWw9biksaGp1c3Q9J2xlZnQnLG51ZGdlX3kgPSAxMDApICsKICAgICAgdGhlbWVfaHNjaV9kaXNjcmV0ZShiYXNlX2ZhbWlseT0iQXJpYWwiKSArCiAgICAgIGNvb3JkX2ZsaXAoKSArCiAgICAgIGxhYnModGl0bGU9c3RyX2MoIkNvbGxlY3RvcnMgaW4gIiwueCkpCiAgICB9CiAgKQpgYGAKCmBgYHtyfQpwX2NvbCAlPiUgCiAgYW50aV9qb2luKGNvbGxlY3RvcnMpICU+JQogIGNvdW50KGNvbF9pZCkgJT4lCiAgZ3QoKSAlPiUKICB0YWJfaGVhZGVyKHRpdGxlPSJDb2xsZWN0b3JzIHdpdGhvdXQgYSBuYW1lIikgJT4lCiAgZm10X2ludGVnZXIobikKYGBgCgojIEdlb2dyYXBoaWNhbCBvdmVydmlldwoKYGBge3J9CmQgPC0gcF9sb2MgJT4lIAogIGNvdW50KGxvY19pZCkgJT4lIAogIGlubmVyX2pvaW4obG9jYXRpb25zKSAlPiUKICBzZWxlY3QobmFtZSxuKSAlPiUKICBjb2xsZWN0KCkKCnBvZW1zX3dpdGhvdXRfbG9jYXRpb24gPC0gcG9lbXMgJT4lIAogIGFudGlfam9pbihwX2xvYykgJT4lIAogIGNvdW50KCkgJT4lIAogIHB1bGwoKQoKdW5wcm9qZWN0ZWRfbG9jYXRpb25zIDwtIGQgJT4lCiAgYW50aV9qb2luKHBvbHlnb25zKSAlPiUKICBhZGRfcm93KG5hbWU9TkEsbj1wb2Vtc193aXRob3V0X2xvY2F0aW9uKQpgYGAKCgpgYGB7ciwgZmlnLmhlaWdodD0xMX0KcG9seWdvbnMgJT4lCiAgbGVmdF9qb2luKGQpICU+JQogIHRtX3NoYXBlKCkgKwogIHRtX3BvbHlnb25zKGNvbD0nbicsIGlkPSduYW1lJywgc3R5bGU9J2Zpc2hlcicsIHBhbGV0dGU9J3BsYXNtYScpICsKICB0bV9sYXlvdXQodGl0bGU9c3RyX2MoIkdlb2dyYXBoaWNhbCBvdmVydmlldy4gTWlzc2luZyAiLHVucHJvamVjdGVkX2xvY2F0aW9ucyAlPiUgdGFsbHkod3Q9bikgJT4lIHB1bGwoKSAlPiUgcCwiIHBvZW1zLiIpKQpgYGAKCmBgYHtyfQp1bnByb2plY3RlZF9sb2NhdGlvbnMgJT4lCiAgYXJyYW5nZShkZXNjKG4pKSAlPiUKICBndCgpICU+JQogIHRhYl9oZWFkZXIoIlBvZW0gbG9jYXRpb25zIG5vdCBtYXBwZWQiKSAlPiUKICBmbXRfaW50ZWdlcihuKQpgYGAKCmBgYHtyfQpkIDwtIHBfbG9jICU+JSAKICBsZWZ0X2pvaW4ocG9lbXMpICU+JQogIGNvdW50KGNvbGxlY3Rpb24sbG9jX2lkKSAlPiUgCiAgdW5ncm91cCgpICU+JQogIGlubmVyX2pvaW4obG9jYXRpb25zKSAlPiUKICBzZWxlY3QoY29sbGVjdGlvbixuYW1lLG4pICU+JQogIGNvbGxlY3QoKQoKcG9lbXNfd2l0aG91dF9sb2NhdGlvbiA8LSBwb2VtcyAlPiUgCiAgYW50aV9qb2luKHBfbG9jKSAlPiUgCiAgY291bnQoY29sbGVjdGlvbikgJT4lIAogIGNvbGxlY3QoKSAlPiUKICBtdXRhdGUobmFtZT1OQV9jaGFyYWN0ZXJfKQoKdW5wcm9qZWN0ZWRfbG9jYXRpb25zIDwtIGQgJT4lCiAgYW50aV9qb2luKHBvbHlnb25zKSAlPiUKICB1bmlvbl9hbGwocG9lbXNfd2l0aG91dF9sb2NhdGlvbikKYGBgCgpgYGB7ciwgZmlnLmhlaWdodD0xMX0KcG9lbXMgJT4lIAogIGRpc3RpbmN0KGNvbGxlY3Rpb24pICU+JQogIHB1bGwoKSAlPiUKICBtYXAofgogICAgYygKICAgICAgdG1fc2hhcGUoCiAgICAgICAgcG9seWdvbnMgJT4lCiAgICAgICAgICBsZWZ0X2pvaW4oCiAgICAgICAgICAgIHBfbG9jICU+JSAKICAgICAgICAgICAgICBpbm5lcl9qb2luKHBvZW1zICU+JSBmaWx0ZXIoY29sbGVjdGlvbj09LngpLGJ5PWMoInBfaWQiKSkgJT4lCiAgICAgICAgICAgICAgY291bnQobG9jX2lkKSAlPiUgCiAgICAgICAgICAgICAgaW5uZXJfam9pbihsb2NhdGlvbnMpICU+JQogICAgICAgICAgICAgIHNlbGVjdChuYW1lLG4pICU+JQogICAgICAgICAgICAgIGNvbGxlY3QoKQogICAgICAgICAgKQogICAgICApICsKICAgICAgdG1fcG9seWdvbnMoY29sPSduJywgaWQ9J25hbWUnLCBzdHlsZT0nZmlzaGVyJywgcGFsZXR0ZT0ncGxhc21hJykgKwogICAgICB0bV9sYXlvdXQodGl0bGU9c3RyX2MoIkdlb2dyYXBoeSBvZiAiLC54LCIuIE1pc3NpbmcgIix1bnByb2plY3RlZF9sb2NhdGlvbnMgJT4lIGZpbHRlcihjb2xsZWN0aW9uPT0ueCkgJT4lIHRhbGx5KHd0PW4pICU+JSBwdWxsKCkgJT4lIHAsIiBwb2Vtcy4iKSksCiAgICApCiAgKQpgYGAKCmBgYHtyfQpwb2VtcyAlPiUgCiAgZGlzdGluY3QoY29sbGVjdGlvbikgJT4lCiAgcHVsbCgpICU+JQogIG1hcCh+CiAgICB1bnByb2plY3RlZF9sb2NhdGlvbnMgJT4lCiAgICAgIGZpbHRlcihjb2xsZWN0aW9uPT0ueCkgJT4lCiAgICAgIGFycmFuZ2UoZGVzYyhuKSkgJT4lCiAgICAgIHNlbGVjdCgtY29sbGVjdGlvbikgJT4lCiAgICAgIGd0KCkgJT4lCiAgICAgIHRhYl9oZWFkZXIoc3RyX2MoIlBvZW0gbG9jYXRpb25zIG5vdCBtYXBwZWQgaW4gIiwueCkpICU+JQogICAgICBmbXRfaW50ZWdlcihuKQogICkKYGBgCgpgYGB7cn0KZCA8LSBwb2VtcyAlPiUKICBsZWZ0X2pvaW4ocF95ZWFyICU+JSBtdXRhdGUoeWVhcj1pZl9lbHNlKHllYXIgJWluJSBjKDBMLDk5OTlMKSxOQSx5ZWFyKSkpICU+JSAKICBjb2xsZWN0KCkgJT4lCiAgbXV0YXRlKHllYXJfbnRpbGU9bnRpbGUoeWVhciwxMSkpICU+JQogIGdyb3VwX2J5KHllYXJfbnRpbGUpICU+JQogIG11dGF0ZSh5ZWFycz1zdHJfYyhtaW4oeWVhciksIi0iLG1heCh5ZWFyKSkpICU+JQogIHVuZ3JvdXAoKSAlPiUKICBsZWZ0X2pvaW4ocF9sb2MgJT4lIGNvbGxlY3QoKSkgJT4lIAogIGNvdW50KHllYXJzLGxvY19pZCkgJT4lIAogIHVuZ3JvdXAoKSAlPiUKICBsZWZ0X2pvaW4obG9jYXRpb25zICU+JSBzZWxlY3QobG9jX2lkLG5hbWUpICU+JSBjb2xsZWN0KCkpCmBgYAoKCmBgYHtyLGZpZy5oZWlnaHQ9MTF9CnBvbHlnb25zICU+JSAKICBsZWZ0X2pvaW4oZCAlPiUgY29tcGxldGUobmFtZSx5ZWFycykpICU+JQogIHRtX3NoYXBlKCkgKwogIHRtX3BvbHlnb25zKGNvbD0nbicsIGlkPSduYW1lJywgc3R5bGU9J2Zpc2hlcicsIHBhbGV0dGU9J3BsYXNtYScpICsKICB0bV9sYXlvdXQobWFpbi50aXRsZT0iR2VvZ3JhcGhpY2FsIG92ZXJ2aWV3cyBieSB0aW1lIixsZWdlbmQub3V0c2lkZS5zaXplPTAuMSkgKwogIHRtX2ZhY2V0cyhieT0ieWVhcnMiLG5jb2w9NCkKYGBgCgo=